Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Networking & Communications/PATHWORKS Animation/PATHWORKS Interface 2.0/stack_-1.xml

Extensible Markup Language | 1990-12-12 | 5KB | 23 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.0</name>
    <id>-1</id>
    <cardCount>3</cardCount>
    <cardID>5587</cardID>
    <listID>2279</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••--≥--≥--≥--≥                © 1990, Apple Computer, Inc.--≥--≥                 DEC LanWORKS Product Guide--≥        Interface For Animation, Demos, and Related Data--≥                          4/23/90--≥--∆                        J.W. Swartz--∆                   TBD Consulting Group--∆                      [phone]--∆--∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆--∆--∆--∆--∆on domenu menu                       --// Added by Medior, Inc. 12/12/90global RPStackNameif menu is in "Home,Quit HyperCard" and RPStackName is not empty thenset cursor to watchput RPStackName into shortNamerepeat until offset(":",shortName) = 0delete char 1 to offset(":",shortName) of shortNameend repeatdelete last char of shortNameanswer "This will return to "&shortName&"." with "Cancel" or "OK"if it is "Cancel" then exit domenuset cursor to watchlock screengo RPStackNameunlock screen with dissolve fastexit domenuelse pass doMenuend domenuon openStackset lockscreen to truehide messagehide menuBartitleBar hideunlock screen with dissolveend openStackon closeStackshow menuBartitleBar showend closeStackon startUpgetHomeInfopass startUp -- to a startUp XCMD, if presentend startUpon resumegetHomeInfopass resume -- to a resume XCMD, if presentend resumeon getHomeInfoglobal stacks,applications,documents,userNameset lockScreen to trueset lockMessages to truepush this cardgo to card "User Preferences" of stack "Home"put card field "User Name" into userNameset userLevel to card field "User Level"set powerKeys to the hilite of button "Power Keys"set textArrows to the hilite of button "Text Arrows"set blindTyping to the hilite of button "Blind Typing"put field "paths" of card "stacks" into stacksput field "paths" of card "applications" into applicationsput field "paths" of card "documents" into documentspop cardset lockScreen to falseset lockMessages to falseend getHomeInfofunction SelectionAndHiliter--∆ To get the number of a line clicked in a field and then highlight--∆ the selected line, needs a button named the same as the field--∆ name with "hiliter" appended.--∆ First, check if the field is a scrolling fieldget the style of the targetif it is "scrolling" thenput the scroll of the target into scrollLocationelseput "0" into scrollLocationend if--∆ Next, get the vertical location of the field and adjust--∆ for wideMargins (causes all lines to drop 4 pixels)put item 2 of rect of target into verticalLocationget wideMargins of the targetif it is true then add 4 to verticalLocation--∆ Compute the line numberget item 2 of the clickloc - verticalLocation + ScrollLocationput 1 + it div the textHeight of target into lineNumber--∆ Now, get the name of the hiliter buttonget the short name of the targetput it into FieldName--∆ Calculate where to place hilite buttonput 1 + (verticalLocation  + lineNumber * textHeight of target ¬- ScrollLocation) - textHeight of target div 2 ¬into adjustedVerticalLocshow cd button (FieldName & "hiliter") ¬at item 1 of loc of ¬cd button (FieldName & "hiliter"),adjustedVerticalLoc--∆ return the line number to calling handlerreturn lineNumberend SelectionAndHiliteron openTheCDCDopenend openTheCDon stopTheCDrepeat foreverif the mouseClick is true or the mouse is down thenCDstopexit repeatend ifend repeatend stopTheCD</script>
    <background id="2640" file="background_2640.xml" name="" />
    <background id="5701" file="background_5701.xml" name="" />
    <card id="5587" file="card_5587.xml" marked="false" name="" owner="5701" />
    <card id="3752" file="card_3752.xml" marked="false" name="Network Services" owner="2640" />
    <card id="4066" file="card_4066.xml" marked="false" name="Animation Player" owner="5701" />
</stack>